Archive Magazine CD 1995

home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_05 / l_bannon / csdsrc < prev
Unknown | 1989-01-16 | 2.6 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	Truevision Targa Graphic `(image/tga)`	magic	Supported
`100%`	file	data	default
`100%`	xdgMime	image/x-tga	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0e f4 20 3e 20 | 43 53 44 53 72 63 0d 00 |..... > |CSDSrc..|
|00000010| 14 04 0d 00 1e 21 f4 20 | 41 75 74 68 6f 72 20 20 |.....!. |Author  |
|00000020| 3a 20 52 61 79 20 4c 6f | 61 64 65 73 2d 42 61 6e |: Ray Lo|ades-Ban|
|00000030| 6e 6f 6e 0d 00 28 1e f4 | 20 56 65 72 73 69 6f 6e |non..(..| Version|
|00000040| 20 3a 20 31 2e 30 30 20 | 2d 20 31 32 2e 31 2e 38 | : 1.00 |- 12.1.8|
|00000050| 39 0d 00 32 04 0d 00 3c | 44 f4 20 53 6f 75 72 63 |9..2...<|D. Sourc|
|00000060| 65 20 63 6f 64 65 20 66 | 6f 72 20 6d 2f 63 20 74 |e code f|or m/c t|
|00000070| 72 61 6e 73 69 65 6e 74 | 20 70 72 6f 67 72 61 6d |ransient| program|
|00000080| 20 77 68 69 63 68 20 73 | 65 74 73 20 75 70 20 61 | which s|ets up a|
|00000090| 20 76 61 72 69 61 62 6c | 65 0d 00 46 47 f4 20 63 | variabl|e..FG. c|
|000000a0| 61 6c 6c 65 64 20 43 75 | 72 72 24 44 69 72 20 77 |alled Cu|rr$Dir w|
|000000b0| 68 69 63 68 20 61 6c 77 | 61 79 73 20 72 65 74 75 |hich alw|ays retu|
|000000c0| 72 6e 73 20 74 68 65 20 | 63 75 72 72 65 6e 74 20 |rns the |current |
|000000d0| 64 69 72 65 63 74 6f 72 | 79 20 28 43 53 44 29 2e |director|y (CSD).|
|000000e0| 0d 00 50 37 f4 20 53 65 | 65 20 50 72 6f 67 72 61 |..P7. Se|e Progra|
|000000f0| 6d 6d 65 72 73 20 52 65 | 66 65 72 65 6e 63 65 20 |mmers Re|ference |
|00000100| 4d 61 6e 75 61 6c 20 2d | 20 20 4f 53 5f 53 65 74 |Manual -|  OS_Set|
|00000110| 56 61 72 56 61 6c 2e 0d | 00 5a 04 0d 00 64 27 f4 |VarVal..|.Z...d'.|
|00000120| 20 41 64 64 20 74 68 65 | 73 65 20 6c 69 6e 65 73 | Add the|se lines|
|00000130| 20 74 6f 20 21 42 6f 6f | 74 20 74 6f 20 75 73 65 | to !Boo|t to use|
|00000140| 20 3a 0d 00 6e 0a f4 20 | 2a 43 53 44 0d 00 78 27 | :..n.. |*CSD..x'|
|00000150| f4 20 2a 53 45 54 4d 41 | 43 52 4f 20 43 4c 49 24 |. *SETMA|CRO CLI$|
|00000160| 50 72 6f 6d 70 74 20 3c | 43 75 72 72 24 44 69 72 |Prompt <|Curr$Dir|
|00000170| 3e 3d 3e 0d 00 82 04 0d | 00 8c 10 de 20 63 6f 64 |>=>.....|.... cod|
|00000180| 65 25 20 26 31 30 30 0d | 00 96 04 0d 00 a0 15 e3 |e% &100.|........|
|00000190| 20 70 61 73 73 25 3d 30 | 20 b8 20 33 20 88 20 33 | pass%=0| . 3 . 3|
|000001a0| 0d 00 aa 0c 50 25 3d 63 | 6f 64 65 25 0d 00 b4 0e |....P%=c|ode%....|
|000001b0| 5b 4f 50 54 20 70 61 73 | 73 25 0d 00 be 43 2e 43 |[OPT pas|s%...C.C|
|000001c0| 56 5f 69 6e 73 74 61 6c | 6c 20 20 20 20 20 20 20 |V_instal|l       |
|000001d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 49 |        |     ; I|
|000001e0| 6e 73 74 61 6c 6c 20 76 | 61 72 69 61 62 6c 65 20 |nstall v|ariable |
|000001f0| 68 61 6e 64 6c 69 6e 67 | 20 63 6f 64 65 0d 00 c8 |handling| code...|
|00000200| 40 20 41 44 52 20 20 20 | 20 20 52 30 2c 43 56 5f |@ ADR   |  R0,CV_|
|00000210| 76 61 72 6e 61 6d 65 20 | 20 20 20 20 20 20 20 20 |varname |        |
|00000220| 3b 20 50 6f 69 6e 74 65 | 72 20 74 6f 20 6e 61 6d |; Pointe|r to nam|
|00000230| 65 20 6f 66 20 76 61 72 | 69 61 62 6c 65 0d 00 d2 |e of var|iable...|
|00000240| 3d 20 41 44 52 20 20 20 | 20 20 52 31 2c 43 56 5f |= ADR   |  R1,CV_|
|00000250| 73 74 61 72 74 20 20 20 | 20 20 20 20 20 20 20 20 |start   |        |
|00000260| 3b 20 50 6f 69 6e 74 65 | 72 20 74 6f 20 73 74 61 |; Pointe|r to sta|
|00000270| 72 74 20 6f 66 20 63 6f | 64 65 0d 00 dc 33 20 4d |rt of co|de...3 M|
|00000280| 4f 56 20 20 20 20 20 52 | 32 2c 23 43 56 5f 65 6e |OV     R|2,#CV_en|
|00000290| 64 2d 43 56 5f 73 74 61 | 72 74 20 20 20 3b 20 4c |d-CV_sta|rt   ; L|
|000002a0| 65 6e 67 74 68 20 6f 66 | 20 63 6f 64 65 0d 00 e6 |ength of| code...|
|000002b0| 34 20 4d 4f 56 20 20 20 | 20 20 52 33 2c 23 30 20 |4 MOV   |  R3,#0 |
|000002c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|000002d0| 3b 20 46 69 72 73 74 20 | 63 61 6c 6c 20 66 6c 61 |; First |call fla|
|000002e0| 67 0d 00 f0 39 20 4d 4f | 56 20 20 20 20 20 52 34 |g...9 MO|V     R4|
|000002f0| 2c 23 26 31 30 20 20 20 | 20 20 20 20 20 20 20 20 |,#&10   |        |
|00000300| 20 20 20 20 3b 20 27 43 | 6f 64 65 27 20 74 79 70 |    ; 'C|ode' typ|
|00000310| 65 20 76 61 72 69 61 62 | 6c 65 0d 00 fa 38 20 53 |e variab|le...8 S|
|00000320| 57 49 20 20 20 20 20 22 | 4f 53 5f 53 65 74 56 61 |WI     "|OS_SetVa|
|00000330| 72 56 61 6c 22 20 20 20 | 20 20 20 20 20 3b 20 43 |rVal"   |     ; C|
|00000340| 72 65 61 74 65 20 74 68 | 65 20 76 61 72 69 61 62 |reate th|e variab|
|00000350| 6c 65 0d 01 04 35 20 4d | 4f 56 20 20 20 20 20 70 |le...5 M|OV     p|
|00000360| 63 2c 52 31 34 20 20 20 | 20 20 20 20 20 20 20 20 |c,R14   |        |
|00000370| 20 20 20 20 20 3b 20 54 | 68 61 74 27 73 20 61 6c |     ; T|hat's al|
|00000380| 6c 20 66 6f 6c 6b 73 0d | 01 0e 0f 2e 43 56 5f 76 |l folks.|....CV_v|
|00000390| 61 72 6e 61 6d 65 0d 01 | 18 4c 20 45 51 55 53 20 |arname..|.L EQUS |
|000003a0| 20 20 20 22 43 75 72 72 | 24 44 69 72 22 20 20 20 |   "Curr|$Dir"   |
|000003b0| 20 20 20 20 20 20 20 20 | 20 3b 20 56 61 72 69 61 |        | ; Varia|
|000003c0| 62 6c 65 20 6e 61 6d 65 | 20 28 74 72 79 20 4b 45 |ble name| (try KE|
|000003d0| 59 24 31 20 74 68 65 6e | 20 70 72 65 73 73 20 46 |Y$1 then| press F|
|000003e0| 31 29 0d 01 22 34 20 45 | 51 55 42 20 20 20 20 30 |1).."4 E|QUB    0|
|000003f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000400| 20 20 20 20 20 3b 20 4e | 75 6c 6c 20 74 65 72 6d |     ; N|ull term|
|00000410| 69 6e 61 74 65 64 0d 01 | 2c 0a 20 41 4c 49 47 4e |inated..|,. ALIGN|
|00000420| 0d 01 36 04 0d 01 40 49 | 2e 43 56 5f 73 74 61 72 |..6...@I|.CV_star|
|00000430| 74 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |t       |        |
|00000440| 20 20 20 20 20 20 20 3b | 20 53 74 61 72 74 20 6f |       ;| Start o|
|00000450| 66 20 63 6f 64 65 20 74 | 6f 20 69 6e 73 74 61 6c |f code t|o instal|
|00000460| 6c 20 69 6e 20 73 79 73 | 20 68 65 61 70 0d 01 4a |l in sys| heap..J|
|00000470| 49 20 42 20 20 20 20 20 | 20 20 43 56 5f 77 72 69 |I B     |  CV_wri|
|00000480| 74 65 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |te      |        |
|00000490| 3b 20 42 79 20 63 6f 6e | 76 65 6e 74 69 6f 6e 20 |; By con|vention |
|000004a0| 6d 75 73 74 20 6a 75 6d | 70 20 74 6f 20 77 72 69 |must jum|p to wri|
|000004b0| 74 65 20 62 69 74 0d 01 | 54 04 0d 01 5e 3a 2e 43 |te bit..|T...^:.C|
|000004c0| 56 5f 72 65 61 64 20 20 | 20 20 20 20 20 20 20 20 |V_read  |        |
|000004d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 43 |        |     ; C|
|000004e0| 6f 64 65 20 74 6f 20 72 | 65 61 64 20 76 61 72 69 |ode to r|ead vari|
|000004f0| 61 62 6c 65 0d 01 68 14 | 3b 20 4f 6e 20 65 6e 74 |able..h.|; On ent|
|00000500| 72 79 20 2d 20 2d 2d 2d | 0d 01 72 26 3b 20 4f 6e |ry - ---|..r&; On|
|00000510| 20 65 78 69 74 20 20 2d | 20 52 30 20 3d 20 70 6f | exit  -| R0 = po|
|00000520| 69 6e 74 65 72 20 74 6f | 20 76 61 6c 75 65 0d 01 |inter to| value..|
|00000530| 7c 24 3b 20 20 20 20 20 | 20 20 20 20 20 20 20 52 ||$;     |       R|
|00000540| 31 20 6d 61 79 20 62 65 | 20 63 6f 72 72 75 70 74 |1 may be| corrupt|
|00000550| 65 64 0d 01 86 25 3b 20 | 20 20 20 20 20 20 20 20 |ed...%; |        |
|00000560| 20 20 20 52 32 20 3d 20 | 6c 65 6e 67 74 68 20 6f |   R2 = |length o|
|00000570| 66 20 76 61 6c 75 65 0d | 01 90 41 20 53 54 4d 46 |f value.|..A STMF|
|00000580| 44 20 20 20 52 31 33 21 | 2c 7b 52 31 34 2c 52 33 |D   R13!|,{R14,R3|
|00000590| 2d 52 34 7d 20 20 20 20 | 20 20 3b 20 4f 53 5f 47 |-R4}    |  ; OS_G|
|000005a0| 50 42 20 6d 61 79 20 63 | 6f 72 72 75 70 74 20 52 |PB may c|orrupt R|
|000005b0| 33 20 61 6e 64 20 52 34 | 0d 01 9a 32 20 4d 4f 56 |3 and R4|...2 MOV|
|000005c0| 20 20 20 20 20 52 30 2c | 23 36 20 20 20 20 20 20 |     R0,|#6      |
|000005d0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 52 65 61 |        |   ; Rea|
|000005e0| 64 20 43 53 44 20 63 61 | 6c 6c 0d 01 a4 3e 20 41 |d CSD ca|ll...> A|
|000005f0| 44 52 20 20 20 20 20 52 | 32 2c 43 53 44 5f 72 65 |DR     R|2,CSD_re|
|00000600| 61 64 5f 62 75 66 66 65 | 72 20 20 20 20 3b 20 42 |ad_buffe|r    ; B|
|00000610| 75 66 66 65 72 20 74 6f | 20 72 65 74 75 72 6e 20 |uffer to| return |
|00000620| 76 61 6c 75 65 20 69 6e | 0d 01 ae 47 20 53 57 49 |value in|...G SWI|
|00000630| 20 20 20 20 20 22 58 4f | 53 5f 47 42 50 42 22 20 |     "XO|S_GBPB" |
|00000640| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 4d 75 73 |        |   ; Mus|
|00000650| 74 20 62 65 20 58 20 74 | 79 70 65 2c 20 61 6e 79 |t be X t|ype, any|
|00000660| 20 65 72 72 6f 72 73 20 | 69 67 6e 6f 72 65 64 0d | errors |ignored.|
|00000670| 01 b8 3f 20 41 44 44 20 | 20 20 20 20 52 30 2c 52 |..? ADD |    R0,R|
|00000680| 32 2c 23 32 20 20 20 20 | 20 20 20 20 20 20 20 20 |2,#2    |        |
|00000690| 20 20 3b 20 52 65 74 75 | 72 6e 20 70 6f 69 6e 74 |  ; Retu|rn point|
|000006a0| 65 72 20 74 6f 20 43 53 | 44 20 6e 61 6d 65 0d 01 |er to CS|D name..|
|000006b0| c2 3e 20 4c 44 52 42 20 | 20 20 20 52 32 2c 5b 52 |.> LDRB |   R2,[R|
|000006c0| 32 2c 23 31 5d 20 20 20 | 20 20 20 20 20 20 20 20 |2,#1]   |        |
|000006d0| 20 3b 20 52 65 74 75 72 | 6e 20 6c 65 6e 67 74 68 | ; Retur|n length|
|000006e0| 20 6f 66 20 43 53 44 20 | 6e 61 6d 65 0d 01 cc 32 | of CSD |name...2|
|000006f0| 20 4c 44 4d 46 44 20 20 | 20 52 31 33 21 2c 7b 70 | LDMFD  | R13!,{p|
|00000700| 63 2c 52 33 2d 52 34 7d | 20 20 20 20 20 20 20 3b |c,R3-R4}|       ;|
|00000710| 20 53 6f 63 6b 20 69 74 | 20 74 6f 20 65 6d 0d 01 | Sock it| to em..|
|00000720| d6 4d 2e 43 53 44 5f 72 | 65 61 64 5f 62 75 66 66 |.M.CSD_r|ead_buff|
|00000730| 65 72 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |er      |        |
|00000740| 20 3b 20 46 6f 72 6d 61 | 74 20 6f 66 20 62 75 66 | ; Forma|t of buf|
|00000750| 66 65 72 20 72 65 74 75 | 72 6e 65 64 20 62 79 20 |fer retu|rned by |
|00000760| 58 4f 53 5f 47 42 50 42 | 2c 23 36 0d 01 e0 2e 20 |XOS_GBPB|,#6.... |
|00000770| 45 51 55 42 20 20 20 20 | 30 20 20 20 20 20 20 20 |EQUB    |0       |
|00000780| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |        |      ; |
|00000790| 5a 65 72 6f 20 62 79 74 | 65 0d 01 ea 30 20 45 51 |Zero byt|e...0 EQ|
|000007a0| 55 42 20 20 20 20 30 20 | 20 20 20 20 20 20 20 20 |UB    0 |        |
|000007b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 4e 61 |        |    ; Na|
|000007c0| 6d 65 20 6c 65 6e 67 74 | 68 0d 01 f4 3b 20 45 51 |me lengt|h...; EQ|
|000007d0| 55 53 20 20 20 20 22 4d | 61 78 69 6d 75 6d 20 4e |US    "M|aximum N|
|000007e0| 61 6d 65 22 20 20 20 20 | 20 20 20 20 3b 20 43 75 |ame"    |    ; Cu|
|000007f0| 72 72 65 6e 74 20 64 69 | 72 65 63 74 6f 72 79 20 |rrent di|rectory |
|00000800| 6e 61 6d 65 0d 01 fe 33 | 20 45 51 55 42 20 20 20 |name...3| EQUB   |
|00000810| 20 30 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | 0      |        |
|00000820| 20 20 20 20 20 20 20 3b | 20 50 72 69 76 69 6c 65 |       ;| Privile|
|00000830| 67 65 20 62 79 74 65 0d | 02 08 0a 20 41 4c 49 47 |ge byte.|... ALIG|
|00000840| 4e 0d 02 12 04 0d 02 1c | 4d 2e 43 56 5f 77 72 69 |N.......|M.CV_wri|
|00000850| 74 65 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |te      |        |
|00000860| 20 20 20 20 20 20 20 20 | 3b 20 43 6f 64 65 20 74 |        |; Code t|
|00000870| 6f 20 77 72 69 74 65 20 | 76 61 72 69 61 62 6c 65 |o write |variable|
|00000880| 20 28 64 75 70 6c 69 63 | 61 74 65 73 20 2a 44 49 | (duplic|ates *DI|
|00000890| 52 29 0d 02 26 2a 3b 20 | 4f 6e 20 65 6e 74 72 79 |R)..&*; |On entry|
|000008a0| 20 2d 20 52 31 20 3d 20 | 70 6f 69 6e 74 65 72 20 | - R1 = |pointer |
|000008b0| 74 6f 20 6e 65 77 20 76 | 61 6c 75 65 0d 02 30 25 |to new v|alue..0%|
|000008c0| 3b 20 20 20 20 20 20 20 | 20 20 20 20 20 52 32 20 |;       |     R2 |
|000008d0| 3d 20 6c 65 6e 67 74 68 | 20 6f 66 20 76 61 6c 75 |= length| of valu|
|000008e0| 65 0d 02 3a 32 3b 20 4f | 6e 20 65 78 69 74 20 20 |e..:2; O|n exit  |
|000008f0| 2d 20 52 31 2c 52 32 2c | 52 34 2c 52 31 30 2d 52 |- R1,R2,|R4,R10-R|
|00000900| 31 32 20 6d 61 79 20 62 | 65 20 63 6f 72 72 75 70 |12 may b|e corrup|
|00000910| 74 65 64 0d 02 44 35 20 | 53 54 4d 46 44 20 20 20 |ted..D5 |STMFD   |
|00000920| 52 31 33 21 2c 7b 52 31 | 34 2c 52 30 7d 20 20 20 |R13!,{R1|4,R0}   |
|00000930| 20 20 20 20 20 20 3b 20 | 44 6f 6e 27 74 20 63 6f |      ; |Don't co|
|00000940| 72 72 75 70 74 20 52 30 | 0d 02 4e 4b 20 4d 4f 56 |rrupt R0|..NK MOV|
|00000950| 20 20 20 20 20 52 30 2c | 23 30 20 20 20 20 20 20 |     R0,|#0      |
|00000960| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 57 72 69 |        |   ; Wri|
|00000970| 74 65 20 43 53 44 20 63 | 61 6c 6c 2c 20 52 31 20 |te CSD c|all, R1 |
|00000980| 69 73 20 73 65 74 20 4f | 2e 4b 2e 20 61 6c 72 65 |is set O|.K. alre|
|00000990| 61 64 79 0d 02 58 46 20 | 53 57 49 20 20 20 20 20 |ady..XF |SWI     |
|000009a0| 22 58 4f 53 5f 46 53 43 | 6f 6e 74 72 6f 6c 22 20 |"XOS_FSC|ontrol" |
|000009b0| 20 20 20 20 20 20 3b 20 | 45 72 72 6f 72 73 20 61 |      ; |Errors a|
|000009c0| 72 65 20 70 61 73 73 65 | 64 20 62 61 63 6b 20 77 |re passe|d back w|
|000009d0| 69 74 68 20 56 20 73 65 | 74 0d 02 62 2b 20 4c 44 |ith V se|t..b+ LD|
|000009e0| 4d 46 44 20 20 20 52 31 | 33 21 2c 7b 70 63 2c 52 |MFD   R1|3!,{pc,R|
|000009f0| 30 7d 20 20 20 20 20 20 | 20 20 20 20 3b 20 44 75 |0}      |    ; Du|
|00000a00| 6e 6e 69 74 0d 02 6c 04 | 0d 02 76 0b 2e 43 56 5f |nnit..l.|..v..CV_|
|00000a10| 65 6e 64 0d 02 80 05 5d | 0d 02 8a 0b ed 20 70 61 |end....]|..... pa|
|00000a20| 73 73 25 0d 02 94 04 0d | 02 9e 35 f4 20 3c 20 4e |ss%.....|..5. < N|
|00000a30| 6f 77 20 77 72 69 74 65 | 20 63 6f 64 65 20 61 73 |ow write| code as|
|00000a40| 20 66 69 6c 65 20 74 79 | 70 65 20 46 46 43 20 28 | file ty|pe FFC (|
|00000a50| 74 72 61 6e 73 69 65 6e | 74 29 20 3e 0d 02 a8 32 |transien|t) >...2|
|00000a60| c8 99 20 22 4f 53 5f 46 | 69 6c 65 22 2c 26 30 41 |.. "OS_F|ile",&0A|
|00000a70| 2c 22 43 53 44 22 2c 26 | 46 46 43 2c 2c 43 56 5f |,"CSD",&|FFC,,CV_|
|00000a80| 69 6e 73 74 61 6c 6c 2c | 43 56 5f 65 6e 64 0d 02 |install,|CV_end..|
|00000a90| b2 04 0d 02 bc 05 e0 0d | ff                      |........|.       |
+--------+-------------------------+-------------------------+--------+--------+